Option Explicit
Sub H_Sample006()
    'ϥΦbH_Sample002s@XӪϪ
    Dim myCht    As Chart
    Dim myChtobj As ChartObject
    Dim mySht    As Worksheet
    Dim myRng1   As Range
    Dim myRng2   As Range
    Set mySht = Worksheets(1)                               'Ϫ
    'w¦ƪ
    With Worksheets("H_Data01")
        Set myRng1 = .Range("E2:E21")
        Set myRng2 = .Range("F2:F21")
    End With
    Set myCht = mySht.ChartObjects(mySht.ChartObjects.Count).Chart
    'wܧ᪺d
    With myCht.SeriesCollection(1)
        .XValues = myRng1.Resize(50)
        .Values = myRng2.Resize(50)
    End With
    mySht.Range("A1").Activate
    Set myRng1 = Nothing                                  '
    Set myRng2 = Nothing
    Set mySht = Nothing
    Set myCht = Nothing
    Set myChtobj = Nothing
End Sub
